home *** CD-ROM | disk | FTP | other *** search
- object Form6: TForm6
- Left = 170
- Top = 118
- BorderStyle = bsSingle
- Caption = 'Bitmap to replace...'
- ClientHeight = 354
- ClientWidth = 424
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- Position = poScreenCenter
- Scaled = False
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 14
- object Label2: TLabel
- Left = 22
- Top = 79
- Width = 95
- Height = 14
- Caption = 'Select &new bitmap: '
- FocusControl = ListBox1
- end
- object Label1: TLabel
- Left = 234
- Top = 192
- Width = 121
- Height = 14
- Caption = 'Select bitmap to repl&ace: '
- FocusControl = ListBox2
- end
- object Image1: TImage
- Left = 232
- Top = 15
- Width = 170
- Height = 170
- Stretch = True
- end
- object Image2: TImage
- Left = 20
- Top = 164
- Width = 170
- Height = 170
- Stretch = True
- end
- object Bevel1: TBevel
- Left = 211
- Top = 14
- Width = 6
- Height = 321
- Shape = bsLeftLine
- end
- object Button1: TButton
- Left = 20
- Top = 14
- Width = 173
- Height = 23
- Caption = '&Open file with new bitmap...'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Edit1: TEdit
- Left = 20
- Top = 47
- Width = 172
- Height = 22
- Color = 14737632
- Enabled = False
- ReadOnly = True
- TabOrder = 1
- end
- object Button3: TButton
- Left = 233
- Top = 312
- Width = 171
- Height = 25
- Cancel = True
- Caption = '&Close'
- ModalResult = 2
- TabOrder = 4
- end
- object Button4: TButton
- Left = 232
- Top = 282
- Width = 173
- Height = 23
- Caption = '&Replace'
- Enabled = False
- ModalResult = 1
- TabOrder = 5
- end
- object ListBox1: TListBox
- Left = 20
- Top = 99
- Width = 170
- Height = 53
- ItemHeight = 14
- TabOrder = 2
- OnClick = ListBox1Click
- end
- object ListBox2: TListBox
- Left = 232
- Top = 212
- Width = 170
- Height = 53
- ItemHeight = 14
- TabOrder = 3
- OnClick = ListBox2Click
- end
- object OpenDialog1: TOpenDialog
- Filter = 'Files with bitmaps(*.exe, *.res, *.bmp)| *.exe; *.res; *.bmp'
- Options = [ofHideReadOnly, ofFileMustExist]
- Left = 280
- Top = 27
- end
- object ImageList1: TImageList
- Left = 247
- Top = 27
- end
- end
-